home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
dora
/
doraset.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
33KB
|
920 lines
/* Yes/Noを1/2に変換する */
%YesNo {[YN,default];
case (YN,
{Yes},{im({1})},{No},{im({2})},,{im(default)});
};
/* USER-ID & PASSWORDの設定 */
%setID {%id ID;%pass PassWord;
loop ({
footnote({ユーザー情報を設定して下さい});SNDMSG({nyuryo_f.snd}); %a @plane(
{cユーザー情報を設定して下さい\n}|
{tユーザーID /xxxxxxxx\n}|
{tパスワード /xxxxxxxx\n}|
{s / 設定 / 取消 },
id,pass);
%id @head(@getline(a,1,1),{\n});%pass @head(@getline(a,2,1),{\n});
%ok @head(@getline(a,3,1),{\n});
case (ok,
{ 1},{ID:=id;PassWord:=pass;im({No})},
{ 2},{im({No})},,{im({No})});
})};
%setAT {var type[10];
footnote({モデムのタイプを選択して下さい});
type := @select({どういうタイプのモデムですか?},
Wtime4,{im({1200n})},
{ 1200 MNPなし },{im({1200n})},
{ 2400 MNPなし },{im({2400n})},
{ 2400(端末速度2400) MNPあり },{im({2400m})},
{ 2400(端末速度4800) MNPあり },{im({4800m})},
{ 2400以上(端末速度9600以上) MNPあり },{im({9600m})});
SNDMSG({nyuryo_f.snd});
footnote({ATコマンドを設定して下さい});
%a @input({ATコマンドを設定して下さい 例「ATX3\N3\V1\Q3\J0」},,
{AT}|@head(MODEM,{/}));
case (a<>{},{Yes},
{case(@getchar(a,1,2),{AT},
{case(a=@head(a,{\}),{Yes},
{MODEM:=@getchar(a,3,999)|{/}|
@getchar(a,3,999)|{/AT直接指定_}|type;}, ,{MODEM:=@getchar(a,3,999)|{/}|
{/AT直接指定_}|type;})})
},{No},{setAT})};
%FUJITSU{
SNDMSG({erande_f.snd});
footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{内蔵1200}, {MODEM:={X3//内蔵1200_1200n}},
{内蔵2400}, {MODEM:={X3/\N3\V1\Q3\J0%C0/内蔵2400_9600m}},
{富士通 PM1200F},{MODEM:={X3//PM1200F_1200n}},
{富士通 PM2400F},{MODEM:={X3/\N3\V1\Q3\J0%C0/PM2400F_9600m}},
{富士通 PM2400FII},{MODEM:={X3/\N7\Q3\J0\V2%C0/PM2400FII_9600m}},
{富士通 OAMD-301},{MODEM:={X3&D2/\N3\Q3\J0\V2/OAMD-301_9600m}},
{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%AIWA {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{AIWA PV-A1200},{MODEM:={X3//PV-A1200_1200n}},
{AIWA PV-A2400},{MODEM:={X3//PV-A2400_2400n}},
{AIWA PV-A2400MNP4},{MODEM:={&D2/&M4\Q1/PV-A2400MNP4_9600m}},
{AIWA PV-A24MNP5},{MODEM:={X3&D2/\N3\Q3\J0/PV-A24MNP5_9600m}},
{AIWA PV-A24V42},{MODEM:={X3&D2/\N3\Q3\J0/PV-A24V42_9600m}},
{AIWA PV-M24},{MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24_9600m}},
{AIWA PV-M24M5},{MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24M5_9600m}},
{AIWA PV-M24B5},{MODEM:={X3&D2/\N3\Q3\J0\V2%C0/PV-M24B5_9600m}},
{AIWA PV-A96V5},{MODEM:={X3&D2/\N3\Q3\J0\V2%C0/PV-A96V5_9600m}},
{AIWA PV-AF144V5},
{MODEM:={X4B2&D2/\N3\Q3\J0\V2%C0S91=13/PV-AF144V5_14400m}},
{},{},
{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%OMRON {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{OMRON MD1200},{MODEM:={X3//MD1200_1200n}},
{OMRON MD12FS},{MODEM:={X3//MD12FS_1200n}},
{OMRON MD2400F},{MODEM:={X3/\N3\V1\Q2\J0/MD2400F_2400m}},
{OMRON MD24FB5V},{MODEM:={X3/\N3\Q2\J0\V2%C0/MD24FB5V_9600m}},
{OMRON MD24FP4},{MODEM:={X3/\N3\Q2\J0/MD24FP4_2400m}},
{OMRON MD24FP4II},{MODEM:={X3&P2/\N3\Q2\J0/MD24FP4II_9600m}},
{OMRON MD24FP5V},{MODEM:={X3/\N3\Q2\J0\V2%C0/MD24FP5V_9600m}},
{OMRON MD24FS4},{MODEM:={X3/\N3\Q2\J0/MD24FS4_2400m}},
{OMRON MD24FS5},{MODEM:={X3&E0/\N3\Q2\J0%C1/MD24FS5_4800m}},
{OMRON MD24FS7},{MODEM:={X3/\N3\Q2\J0%C3/MD24FS7_4800m}},
{OMRON MD246FL10V},{MODEM:={X3/\N3\Q2%C0\J0/MD24FL10V_9600m}},
{OMRON MD24XL10V},{MODEM:={X3/\N3\Q2%C0\J0/MD24XL10V_9600m}},
{OMRON MD96FB5V (MNP)},{MODEM:={X4&E0/\N3\Q2\J0%C1\V2/MD96FB5V_9600m}},
{OMRON MD96FB5V (LAP)},{MODEM:={X4&E0/\N3%C1&M5*C1\D0\J0\V2/MD96FB5V_9600m}},
{OMRON MD96FL10V},{MODEM:={X3/\N3\Q2%C0\J0/MD96FL10V_19200m}},
{OMRON MD96XL10V},{MODEM:={X3/\N3\Q2%C0\J0/MD96XL10V_19200m}},
{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%EPSON {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{EPSON SR-120S},{MODEM:={X3//SR-120S_1200n}},
{EPSON SR-240AT},{MODEM:={X3//SR-240AT_2400n}},
{EPSON SR-240V},{MODEM:={X3\V2/N1&K1%C0/SR-240V_9600m}},
{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%NEC {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{NEC COMSTAR 2424},{MODEM:={X3/\N3\Q2/COMSTAR 2424_2400m}},
{NEC COMSTARZ CLUB24/5}
,{MODEM:={X4/\N3\Q3\J0\V2&C1&D2&S1/COMSTARZ CLUB24/5_2400m}},
{},{},{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%SONY {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{SONY IT-V1200},{MODEM:={X3//IT-V1200_1200n}},
{},{},{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%MICROCORE{
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{MICROCORE MC24PA5},{MODEM:={X3/\N5\Q2\J0\X1%C1/MC24PA5_9600m}},
{},{},{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%setMODEM{
%modem {case(MODEM,{},{im({未設定})},,{head(@tail(MODEM,{/}),{_})})};
SNDMSG({erande_f.snd});footnote({モデムのメーカーを選んで下さい});
select({モデムのメーカーを選んで下さい},
Wtime4,{},
{ FUJITSU },{FUJITSU}, { AIWA },{AIWA},
{ OMRON },{OMRON}, { EPSON },{EPSON},
{ NEC },{NEC}, { SONY },{SONY},
{ マイクロコア },{MICROCORE},{ ATコマンド直設定 },{setAT},
{ クロス・ケーブル接続 },{setCABL}
)};
/* ダイヤル種類の設定 */
%setDIAL{%dial {case (DIAL,
{P},{im({ダイヤルパルス式})},
{T},{im({プッシュホン式})},
, {im({未設定})})};
footnote({電話回線の種類を指定して下さい});
select ({電話回線の種類を指定して下さい 現在は}|@dial|{です},
Wtime4,{},
{ダイヤルパルス式},{DIAL:={P}},
{ プッシュホン式 },{DIAL:={T}}
)};
%setMDM {loop ({
SNDMSG({erande_f.snd});
footnote({設定する情報を選択して下さい});
select ({設定する情報を選択して下さい << モデム設定 >>},
Wtime4,{im({No})},
{ モデム機種の設定 },{setMODEM;im({Yes})},
{ ダイヤル種類の設定 },{setDIAL;im({Yes})},
{ 設定終了 },{im({No})}
)})};
/* '93/ 2 / 7 Take */
%setCABL{%modem {case (MODEM,{},{im({未設定})},
, {head(@tail(MODEM,{/}),{_})}
)};
SNDMSG({erande_f.snd});
footnote({ホストのバージョンを選んで下さい});
select({ホストのバージョンを選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{RTBBS5.3αe以前}, {MODEM:={RET//RTBBS5.3αe_00s}},
{RTBBS5.3βa以降}, {MODEM:={ESC//RTBBS5.3βa_00s}},
{変更しない},{}
)};
%selDIR {
[MSG]
footnote(MSG|{まで移動して右クリックしてください});
SNDMSG({erande_f.snd});
filesel;
im(@getcdir);
};
%setBBSTEL{
var gen[3]; var gen2[3]; var gen3[3]; var gen4[3];
var netname[40];var opentime[2];var closetime[2];
var road[80]; var road2[80]; var road3[80]; var road4[80];
road:=@nth(ROAD,1,{/});
road2:=@nth(ROAD2,1,{/});
road3:=@nth(ROAD3,1,{/});
road4:=@nth(ROAD4,1,{/});
loop ({
SNDMSG({erande_f.snd}); opentime:=openT; closetime:=closeT;
gen:= @case(GEN,{Yes},{im({1})},{No},{im({2})},,{im({2})});
gen2:= @case(GEN2,{Yes},{im({1})},{No},{im({2})},,{im({2})});
gen3:= @case(GEN3,{Yes},{im({1})},{No},{im({2})},,{im({2})});
gen4:= @case(GEN4,{Yes},{im({1})},{No},{im({2})},,{im({2})});
footnote({注意;アクセス時間制限が無い場合「開・閉局時間」=空白にして下さい});
%a @plane(
{c○正式名称=★}|NETname|{・簡易名称=★}|NET|{\n}|
{c 電話番号を入力してください。\n}|
{t 開局時間(24H表示) /xx\n}|
{t 閉局時間(24H表示) /xx\n}|
{t ch.1の電話番号 /\n}|
{r ch.1 のアクセス時間制限 /有り /無し \n}|
{t ch.2の電話番号 /\n}|
{r ch.2 のアクセス時間制限 /有り /無し \n}|
{t ch.3の電話番号 /\n}|
{r ch.3 のアクセス時間制限 /有り /無し \n}|
{t ch.4の電話番号 /\n}|
{r ch.4 のアクセス時間制限 /有り /無し \n}|
{c 設定を選択すると通信速度の設定が出来ます\n}|
{s / 設定 / 取消 },
opentime,closetime,road,gen,road2,gen2,road3,gen3,road4,gen4);
opentime:= @head(@getline(a,1,1),{\n});
closetime:= @head(@getline(a,2,1),{\n});
road:= @head(@getline(a,3,1),{\n}); gen:= @head(@getline(a,4,1),{\n});
road2:= @head(@getline(a,5,1),{\n}); gen2:= @head(@getline(a,6,1),{\n});
road3:= @head(@getline(a,7,1),{\n}); gen3:= @head(@getline(a,8,1),{\n});
road4:= @head(@getline(a,9,1),{\n}); gen4:= @head(@getline(a,10,1),{\n});
%ok @head(@getline(a,11,1),{\n});
case(ok,{ 1},{ openT:=opentime;
closeT:=closetime;
ROAD:=@im(road|{/}|@tail(ROAD,{/}));
ROAD2:=@im(road2|{/}|@tail(ROAD2,{/}));
ROAD3:=@im(road3|{/}|@tail(ROAD3,{/}));
ROAD4:=@im(road4|{/}|@tail(ROAD4,{/}));
case(gen,{ 1},{GEN:={Yes}},{ 2},{GEN:={No}},,{GEN:={No}});
case(gen2,{ 1},{GEN2:={Yes}},{ 2},{GEN2:={No}},,{GEN2:={No}});
case(gen3,{ 1},{GEN3:={Yes}},{ 2},{GEN3:={No}},,{GEN3:={No}});
case(gen4,{ 1},{GEN4:={Yes}},{ 2},{GEN4:={No}},,{GEN4:={No}});
setNETbps;im({No})},
{ 2},{im({No})},,{im({No})});
});
};
%setNETbps{
var netbps[80]; var netbps2[80]; var netbps3[80]; var netbps4[80];
netbps:=@tail(ROAD,{/});
netbps2:=@tail(ROAD2,{/});
netbps3:=@tail(ROAD3,{/});
netbps4:=@tail(ROAD4,{/});
case(netbps={},{Yes},{netbps:={未設定}},{No},{});
case(netbps2={},{Yes},{netbps2:={未設定}},{No},{});
case(netbps3={},{Yes},{netbps3:={未設定}},{No},{});
case(netbps4={},{Yes},{netbps4:={未設定}},{No},{});
%a @plane(
{c }|NET|{の電話番号毎の通信速度を入力してください。\n}|
{t ch.1の電話番号=}|road|{ /xxxxxx\n}|
{t ch.2の電話番号=}|road2|{ /xxxxxx\n}|
{t ch.3の電話番号=}|road3|{ /xxxxxx\n}|
{t ch.4の電話番号=}|road4|{ /xxxxxx\n}|
{s / 設定 / 取消 },
netbps,netbps2,netbps3,netbps4);
%netbps @head(@getline(a,1,1),{\n});%netbps2 @head(@getline(a,2,1),{\n});
%netbps3 @head(@getline(a,3,1),{\n});%netbps4 @head(@getline(a,4,1),{\n});
%ok @head(@getline(a,5,1),{\n});
case(ok,{ 1},{
ROAD:= @im(@nth(ROAD,1,{/})|{/}|netbps);
ROAD2:= @im(@nth(ROAD2,1,{/})|{/}|netbps2);
ROAD3:= @im(@nth(ROAD3,1,{/})|{/}|netbps3);
ROAD4:= @im(@nth(ROAD4,1,{/})|{/}|netbps4);
},
{ 2},{im({No})},
,{im({No})});
};
%setBBSname { SNDMSG({nyuryo_f.snd});
footnote({ネット巡回機能で使用(する予定です)します});
NETname:=@input(NET|{の正式なネット名称を入力して下さい},
,NETname);
};
%setACP {
select({ << アクセスポイント >>},
Wtime4,{},
{区域内通話 },{AcP:={区域内通話};AcPNo:=1},
{隣接~20km },{AcP:={隣接~20km};AcPNo:=2},
{ ~30km },{AcP:={20km~30km};AcPNo:=3},
{ ~40km },{AcP:={30km~40km};AcPNo:=4},
{ ~60km },{AcP:={40km~60km};AcPNo:=5},
{ ~80km },{AcP:={60km~80km};AcPNo:=6},
{ ~100km },{AcP:={80km~100km};AcPNo:=7},
{ ~160km },{AcP:={100km~160km};AcPNo:=8},
{ 160km以上 },{AcP:={160km以上};AcPNo:=9});
};
%setBBSNAME {
loop ({
SNDMSG({erande_f.snd});
footnote({ネットの名称を入力して下さい});
select ({ネットの名称・電話番号・通信速度の設定},
Wtime4,{im({No})},
{ネットの名称を入力する},{SNDMSG({nyuryo_f.snd});
footnote({NETの名称を入力して下さい});
%net @input({ログファイル名称に使用しますので、必ず半角の大文字\n}|
{3文字にてNETの簡易名称を入力して下さい。\n}|
{ 尚 簡易名称は「.」を含まないで表現して下さい。\n},
,NET);
case (@nochar(net),
3,{NET:=net;setBBSname;setACP;im({Yes})},
2,{NET:=net;setBBSname;setACP;im({Yes})},
,{setBBSname});im({Yes});
},
{NETの電話番号を入力する },{setBBSTEL;im({Yes})},
{ 設定終了 },{im({No})}
)});
};
/* ID検索リストの設定 */
%setRTTFIL{
footnote({RTTLC.EXEファイルを指定してください});
SNDMSG({erande_f.snd});
%rttlfil @filesel;
case (rttlfil<>{},
{Yes},
{
%cdir @getcdir;
case (@nochar(cdir)==3,
{Yes},{RTTLC:=cdir|rttlfil},
{No},{RTTLC:=cdir|{\}|rttlfil}
);rttl:=RTTLC;
});
im({Yes});
};
%setMEMBER{
footnote({ID検索用リストファイルを指定してください});
SNDMSG({erande_f.snd});
%member @filesel;
case (member<>{},
{Yes},
{
%cdir @getcdir;
case (@nochar(cdir)==3,
{Yes},{MEMBER:=cdir|member},
{No},{MEMBER:=cdir|{\}|member}
);idlist:=MEMBER;
});
im({Yes});
};
%setLOGF{
%chkDIR {
[DIR]
im(DIR={}||@getchar(DIR,2,2)={:\});
};
var arcdir [64]; var wkdir [64]; var updir [64];
var fswdir [64]; var rttldir [64]; var viewdir [64];
var idlist [64]; var rttl [64];
arcdir:= LOG;
wkdir:= TEMP;
updir:= UP;
rttldir := RTTLdir;
rttl := RTTLC;
fswdir := FSW;
idlist := MEMBER;
viewdir := VIEWLOG;
loop ({
case(FSW={},
{Yes},{
case (LOG={},
{No},{fswdir:=@im(LOG2|{FREESOFT\});
FSW:=fswdir
})
},
,);
case(MEMBER={},
{Yes}, {
case (LOG={},
{No},{idlist:=@im(LOG2|{PROFILE\member.lst});
MEMBER:=idlist
})
});
footnote({ディレクトリ情報を設定してください});
SNDMSG({nyuryo_f.snd});
%a @plane(
{cディレクトリをフルパスで入力してください\n}|
{tログ保存用 /\n}|
{tテンポラリ用 /\n}|
{tアップロード用 /\n}|
{tフリーソフト用 /\n}|
{tRTTLC出力用 /\n}|
{c出力されたファイルが D:\TGK\TGKXXXX.LOG\n}|
{c の場合は「D:\TGK」と入力してください\n}|
{t第2ログ参照用 /\n}|
{s 検索 /ログ保存 /テンポラリ /アップロード\n}|
{s /フリーソフト /RTTLC出力/ログ参照 \n}|
{tログカッタ(RTTLC)指定;ファイル名まで入力 /\n}|
{tID検索リスト指定 ;ファイル名まで入力/\n}|
{s /RTTLCファイル/ID検索ファイル\n}|
{s / 設定 / 取消 },
arcdir,wkdir,updir,fswdir,rttldir,viewdir,rttl,
idlist);
arcdir:= @head(@getline(a,1,1),{\n});
wkdir:= @head(@getline(a,2,1),{\n});
updir:= @head(@getline(a,3,1),{\n});
fswdir:= @head(@getline(a,4,1),{\n});
rttldir:= @head(@getline(a,5,1),{\n});
viewdir:= @head(@getline(a,6,1),{\n});
%sel1 @head(@getline(a,7,1),{\n});
%sel2 @head(@getline(a,8,1),{\n});
rttl:= @head(@getline(a,9,1),{\n});
idlist:= @head(@getline(a,10,1),{\n});
%sel3 @head(@getline(a,11,1),{\n});
%ok @head(@getline(a,12,1),{\n});
case (sel1,
{ 1},
{arcdir:=@selDIR({ログ保存ディレクトリ});
LOG:=arcdir;im({Yes});
case(@nochar(LOG)==3,
{No},{LOG2:=LOG|{\}},{Yes},{LOG2:=LOG});
},
{ 2},
{wkdir:=@selDIR({テンポラリディレクトリ})},
{ 3},
{updir:=@selDIR({アップロードディレクトリ})}
);
case (sel2,
{ 1},
{fswdir:=@selDIR({フリーソフト用ディレクトリ})},
{ 2},
{rttldir:=@selDIR({RTTLC出力ディレクトリ})},
{ 3},
{viewdir:=@selDIR({ログ参照時の第2ディレクトリ})}
);
case (sel3,
{ 1},
{setRTTFIL},
{ 2},
{setMEMBER}
);
case (ok,
{ 1},
{
case (@chkDIR(arcdir)&&@chkDIR(wkdir)&&
@chkDIR(updir) &&@chkDIR(fswdir)&&
@chkDIR(rttldir)&&@chkDIR(viewdir),
{Yes},
{
LOG:=arcdir;
TEMP:=wkdir;
UP:=updir;
FSW:=fswdir;
RTTLdir:=rttldir;
VIEWLOG:=viewdir;
MEMBER:=idlist;
/*アクセス前にディレクトリを作成*/
init;
var ProFile[64];
case (@nochar(MEMBER),
0,{ProFile:=LOG2|{PROFILE\member.lst}},
3,{ProFile:=MEMBER},
,{ProFile:=MEMBER}
);
mkdir2(LOG2|{アクセスdat}); mkdir2(@body(ProFile,,{\}));
mkdir2(LOG2|{board}); mkdir2(LOG2|{PROFILE});
mkdir2(LOG2|{DATALIB}); mkdir2(LOG2|{FREESOFT});
},
{No},{SNDMSG({okasi_f.snd});im({Yes})}
);
case (@tail(rttl,{\})={RTTLC.EXE}
||@tail(rttl,{\})={RTTLC}
||@tail(rttl,{\})={rttlc.exe}
||@tail(rttl,{\})={rttlc},
{Yes},{RTTLC:=rttl},
{No},{footnote({RTTLCをドライブ名からのフルパスで} |{入力して下さい(拡張子は不要)});
SNDMSG({okasi_f.snd});wait(3);im({Yes})}
);
},
{ 2},{im({No})},
,{im(!(sel1={ 0}&&sel2={ 0}&&sel3={ 0}))}
);
});
};
/* 背景色の設定をする */
%setCOLOR{case (R,{},{R:=0});case (G,{},{G:=0}); case (B,{},{B:=0});
SNDMSG({erande_f.snd});footnote({背景色の変更をします});
loop ({select ({背景色の変更をします}|
{ 現在は r=}|R|{ g=}|G|{ b=}|B|{ です},
Wtime4,{im({No})},
{赤↑},
{case(R<251,{Yes},{R:=R+5;backclr(R,G,B)});im({Yes})},
{赤↓},
{case(R> 4,{Yes},{R:=R-5;backclr(R,G,B)});im({Yes})},
{緑↑},
{case(G<251,{Yes},{G:=G+5;backclr(R,G,B)});im({Yes})},
{緑↓},
{case(G> 4,{Yes},{G:=G-5;backclr(R,G,B)});im({Yes})},
{青↑},
{case(B<251,{Yes},{B:=B+5;backclr(R,G,B)});im({Yes})},
{青↓},
{case(B> 4,{Yes},{B:=B-5;backclr(R,G,B)});im({Yes})},
{終了},
{im({No})}
)})};
/* 音声メッセージファイルのコピー */
%copySND{[snddir] /* 最後は「\」であること */
display (BELL);footnote({システムCDをセットして下さい});
select ({システムCDをセットして下さい},
Wtime4,,
{ OK },
{case (@setcdir({q:\fj\msg}), /* v1.1 */
{Yes},{
footnote({erande_f.sndをコピーします});
command({copy order\erande_f.snd }|snddir|{*.*});
footnote({nyuryo_f.sndをコピーします});
command({copy order\nyuryo_f.snd }|snddir|{*.*});
footnote({kaknin_f.sndをコピーします});
command({copy order\kaknin_f.snd }|snddir|{*.*});
footnote({owata_f.sndをコピーします});
command({copy info\owata_f.snd }|snddir|{*.*});
footnote({okasi_f.sndをコピーします});
command({copy alarm\okasi_f.snd }|snddir|{*.*});
footnote({okaeri_f.sndをコピーします});
command({copy greeting\okaeri_f.snd }|snddir|{*.*});
footnote({jikan_f.sndをコピーします});
command({copy info\jikan_f.snd }|snddir|{*.*});
},
{No},{
case (@setcdir({q:\fj2\msg}), /* v2.1 */
{Yes},{
footnote({erande_f.sndをコピーします});
command({copy order\erande_f.snd }|snddir|{*.*});
footnote({nyuryo_f.sndをコピーします});
command({copy order\nyuryo_f.snd }|snddir|{*.*});
footnote({kaknin_f.sndをコピーします});
command({copy order\kaknin_f.snd }|snddir|{*.*});
footnote({owata_f.sndをコピーします});
command({copy info\owata_f.snd }|snddir|{*.*});
footnote({okasi_f.sndをコピーします});
command({copy warning\okasi_f.snd }|snddir|{*.*});
footnote({okaeri_f.sndをコピーします});
command({copy greeting\okaeri_f.snd }|snddir|{*.*});
footnote({jikan_f.sndをコピーします});
command({copy info\jikan_f.snd }|snddir|{*.*});
});
});
footnote({});
},
{ NO },
)};
/* 音声メッセージファイルの設定 */
%setSNDDIR{SNDMSG({nyuryo_f.snd});
footnote({ディレクトリ名を入力して下さい});
%sound @input({音声メッセージファイルを格納するディレクトリを指定して下さい\n}
|{ ルートディレクトリ以外は最後の「\」は不要です\n}
|{ 例 A:\MOPTERM\SOUND},,SOUND);
case (@getchar(sound,2,2)={:\},
{No},setSNDDIR,
{Yes},{SOUND:={}}
);
%sound2 {case(@nochar(sound),{3},{im(sound)},,{im(sound|{\})})};
mkdir2 (sound);
case (@filechk(@sound2|{erande_f.snd})&&
@filechk(@sound2|{nyuryo_f.snd})&&
@filechk(@sound2|{kaknin_f.snd})&&
@filechk(@sound2|{okasi_f.snd})&&
@filechk(@sound2|{owata_f.snd})&&
@filechk(@sound2|{okaeri_f.snd})&&
@filechk(@sound2|{jikan_f.snd}),
{No},{copySND(@sound2)});
VBELL:={No};
SOUND:=sound;
case(@nochar(SOUND)=3,{Yes},{SOUND2:=SOUND},{No},{SOUND2:=SOUND|{\}});
};
/* bellfileの設定 */
%setBELFIL{SNDMSG({erande_f.snd});
footnote({ベルの代わりに鳴らす音声ファイルを指定して下さい});
%bell @filesel({SND});
%bell2 {case (@nochar(@getcdir),{3},{im(@getcdir|bell)},
,{im(@getcdir|{\}|bell)})};
case (bell,{},{BELFIL:={}},,{BELFIL:=@bell2});
case(@tail(BELFIL,{.})={snd}||@tail(BELFIL,{.})={SND},
{Yes},{bellfile(BELFIL)});
SOUND:={};SOUND2:={};VBELL:={No};
};
/* 入力プロンプトの設定 */
%setPRMPT{SNDMSG({erande_f.snd});
footnote({入力時のプロンプト方法を指定して下さい});
select ({入力時のプロンプト方法を指定して下さい},
Wtime4,,
{ 音声メッセージ },{VBELL:={No};BELL:={};setSNDDIR},
{ ブザー音 },
{SOUND:={};SOUND2:={};VBELL:={No};BELL:=@xc({07});BELFIL:={}},
{ 画面フラッシュ },
{SOUND:={};SOUND2:={};VBELL:={Yes};BELL:=@xc({07});BELFIL:={}},
{指定のsndファイル},{VBELL:={No};BELL:=@xc({07});setBELFIL},
{ プロンプト無し },
{SOUND:={};SOUND2:={};VBELL:={No};BELL:={};BELFIL:={}});
visibell(VBELL);
};
/* なっとうスクロールの設定 */
%setNATTOU{%natto {case (NATTOU,
{Yes},{im({『 使用する 』})},
, {im({『 使用しない 』})}
);
};
SNDMSG({erande_f.snd});footnote({なっとうスクロールを使用しますか});
select ({なっとうスクロールを使用しますか 現在は}|@natto|{です},
Wtime4,,
{ 使用する },{NATTOU:={Yes};nattou(NATTOU)},
{ 使用しない },{NATTOU:={No};nattou(NATTOU)}
);
};
/* クリック音の設定 */
%setCLICK{%clk {case (CLICK,
{No},{im({『 クリック音なし 』})},
, {im({『 クリック音あり 』})}
);
};
SNDMSG({erande_f.snd}); footnote({クリック音を出力しますか});
select ({クリック音を出力しますか 現在は}|@clk|{です},
Wtime4,,
{ クリック音あり },{CLICK:={Yes};click(CLICK)},
{ クリック音なし },{CLICK:={No};click(CLICK)}
);
};
/* タブサイズの設定 */
%setTAB {case (TAB,{},{TAB:=8});
SNDMSG({erande_f.snd});footnote({タブサイズを指定して下さい});
select ({タブサイズを指定して下さい 現在は}|TAB|{です},
Wtime4,,
{ 1 },{TAB:=1;tab(TAB)},{ 2 },{TAB:=2;tab(TAB)},
{ 4 },{TAB:=4;tab(TAB)},{ 8 },{TAB:=8;tab(TAB)}
);
};
/* シフトロックの設定 */
%setLOCK{%lock {case (LOCK,
{Yes},{im({『 シフトロックあり 』})},
, {im({『 シフトロックなし 』})}
);
};
SNDMSG({erande_f.snd});footnote({シフトロックを行いますか?});
select ({シフトロックを行いますか 現在は}|@lock|{です},
Wtime4,,
{ シフトロックあり },{LOCK:={Yes};shiftl(LOCK)},
{ シフトロックなし },{LOCK:={No};shiftl(LOCK)}
);
};
/* かな漢字変換モードの初期値の設定 */
%setOAK {var oakj [2]; var oakr [2];
var oakk [2]; var oakz [2];
%exist {[str,chr]
var n [4];var x [1];n:=0;x:=2;
%leng @nochar(str);
loop ({ n:=n+1;
case (n>leng,
{Yes},{im({No})},
{No},{case(@getchar(str,n,1)=chr,{Yes},{x:=1});
im({Yes});
});
});
im(x);
};
loop ({oakj:=@exist(OAK,{J});oakr:=@exist(OAK,{R});
%k @exist(OAK,{K});%h @exist(OAK,{H});
case(k==2&&h==2,{Yes},{oakk:={3}});
case(k==1,{Yes},{oakk:={2}});case(h==1,{Yes},{oakk:={1}});
oakz:=@exist(OAK,{Z});
footnote({かな漢字変換モードを設定してください});
SNDMSG({erande_f.snd});
%a @plane(
{cかな漢字変換モードの初期値を設定してください\n}|
{r漢字辞書モード /使用する/使わない\n}|
{r日本語入力モード /ローマ字/かな\n}|
{rカナモード /ひらがな/カタカナ/英字\n}|
{r全角モード /全角 /半角\n}|
{s / 設定 / 取消 },
oakj,oakr,oakk,oakz);
oakj:= @head(@getline(a,1,1),{\n});oakr:= @head(@getline(a,2,1),{\n});
oakk:= @head(@getline(a,3,1),{\n});oakz:= @head(@getline(a,4,1),{\n});
%ok @head(@getline(a,5,1),{\n});
case (ok==1,
{Yes},{OAK:={};
case(oakj==1,{Yes},{OAK:=OAK|{J}});
case(oakr==1,{Yes},{OAK:=OAK|{R}});
case(oakk,{ 1},{OAK:=OAK|{H}},{ 2},{OAK:=OAK|{K}});
case(oakz==1,{Yes},{OAK:=OAK|{Z}});
case(OAK<>{},{Yes},{setoak(OAK)});
im({No});
},{No},{im({No})});
})};
/* その他の設定をする */
%setETC {%Nattou @YesNo(NATTOU,{1});%Click @YesNo(CLICK,{2});
%Tab @case (TAB,{1},{im({1})},{2},{im({2})},{4},{im({3})},
{8},{im({4})},,{im({4})});
%Lock @YesNo(LOCK,{2});%Opening@YesNo(OPENING,{1});
%Hosei @case(HOSEI,{-m},{im({1})},{ },{im({2})},,{im({2})});
loop ({
footnote({その他の条件を設定してください});
SNDMSG({erande_f.snd});
%a @plane(
{cその他の条件を選択してください\n}|
{s / 背景色の設定 \n}|
{s / プロンプト方法の設定 \n}|
{s / かな漢字変換初期値の設定 \n}|
{r納豆スクロール /する/しない\n}|
{rクリック音出力 /する/しない\n}|
{rタブ数 /1/2/4/8\n}|
{rシフトロック /する/しない\n}|
{rオープニング画面表示 /する/しない\n}|
{rOP画面表示補正 /する/しない\n}|
{s / 設定 / 取消 },
Nattou,Click,Tab,Lock,Opening,Hosei);
%sel1 @head(@getline(a,1,1),{\n});%sel2 @head(@getline(a,2,1),{\n});
%sel3 @head(@getline(a,3,1),{\n});%Nattou @head(@getline(a,4,1),{\n});
%Click @head(@getline(a,5,1),{\n});%Tab @head(@getline(a,6,1),{\n});
%Lock @head(@getline(a,7,1),{\n});%Opening @head(@getline(a,8,1),{\n});
%Hosei @head(@getline(a,9,1),{\n});%ok @head(@getline(a,10,1),{\n});
case (sel1==1,{Yes},{setCOLOR;im({Yes})});
case (sel2==1,{Yes},{setPRMPT;im({Yes})});
case (sel3==1,{Yes},{setOAK;im({Yes})});
case (ok,
{ 1},{
NATTOU:=@case (Nattou,
{ 1},{nattou({Yes});im({Yes})},
{ 2},{nattou({No});im({No})},
,{im({})}
);
CLICK:=@case (Click,
{ 1},{click({Yes});im({Yes})},
{ 2},{click({No});im({No})},
,{im({})}
);
TAB:=@case (Tab,
{ 1},{tab({1});im({1})},
{ 2},{tab({2});im({2})},
{ 3},{tab({4});im({4})},
{ 4},{tab({8});im({8})},
,{im({})}
);
LOCK:=@case (Lock,
{ 1},{shiftl({Yes});im({Yes})},
{ 2},{shiftl({No});im({No})},
,{im({})}
);
OPENING:=@case (Opening,
{ 1},{im({Yes})},
{ 2},{im({No})},
,{im({Yes})}
);
HOSEI:=@case (Hosei,
{ 1},{im({-m})},
{ 2},{im({})},
,{im({})}
);
im({No});
},{ 2},{im({No})},,{im({No})}
)})};
/* ファイルマネージャの選択 */
%setFMGR{
%mgr @case(FMGR,{},{im({標準ファイルマネージャ})},,{im(FMGR)});
SNDMSG({erande_f.snd});
footnote({ファイルマネージャを選択して下さい 現在は }|mgr|{ です});
FMGR:=
@loop ({select({ファイルマネージャを選択してください},
Wtime4,{im(FMGR)},
{ 標準ファイルマネージャ },{im({})},
{ 任意のファイルマネージャ },
{
footnote({ファイルマネージャ用のオート}|
{パイロットを指定して下さい});
%fmgr @filesel();
case(fmgr,{},{im({})},
,{case(@nochar(@getcdir),
{3},{im(@getcdir|fmgr)},
,{im(@getcdir|{\}|fmgr)})});
});
});
};
/* 設定情報をファイルに保存する */
%writeSET{
[file]
setcdir(CDIR);dispoff(!DEBUG);
copyfile(file,{ *.BAK});
delfile(file);dispoff({No});
write(file,
{ID :=}|@xc({7b})|ID|@xc({7d})|{;\n}|
{PassWord:=}|@xc({7b})|PassWord|@xc({7d})|{;\n}|
{AcP :=}|@xc({7b})|AcP|@xc({7d})|{;\n}|
{AcPNo :=}|@xc({7b})|AcPNo|@xc({7d})|{;\n}|
{ROAD :=}|@xc({7b})|ROAD|@xc({7d})|{;\n}|
{ROAD2 :=}|@xc({7b})|ROAD2|@xc({7d})|{;\n}|
{ROAD3 :=}|@xc({7b})|ROAD3|@xc({7d})|{;\n}|
{ROAD4 :=}|@xc({7b})|ROAD4|@xc({7d})|{;\n}|
{sROAD :=}|@xc({7b})|sROAD|@xc({7d})|{;\n}|
{GEN :=}|@xc({7b})|GEN|@xc({7d})|{;\n}|
{GEN2 :=}|@xc({7b})|GEN2|@xc({7d})|{;\n}|
{GEN3 :=}|@xc({7b})|GEN3|@xc({7d})|{;\n}|
{GEN4 :=}|@xc({7b})|GEN4|@xc({7d})|{;\n}|
{genteiT :=}|@xc({7b})|genteiT|@xc({7d})|{;\n}|
{openT :=}|@xc({7b})|openT|@xc({7d})|{;\n}|
{closeT :=}|@xc({7b})|closeT|@xc({7d})|{;\n}|
{NETname :=}|@xc({7b})|NETname|@xc({7d})|{;\n}|
{NET :=}|@xc({7b})|NET|@xc({7d})|{;\n}|
{MODEM :=}|@xc({7b})|MODEM|@xc({7d})|{;\n}|
{DIAL :=}|@xc({7b})|DIAL|@xc({7d})|{;\n}|
{TEMP :=}|@xc({7b})|TEMP|@xc({7d})|{;\n}|
{LOG :=}|@xc({7b})|LOG|@xc({7d})|{;\n}|
{UP :=}|@xc({7b})|UP|@xc({7d})|{;\n}|
{FSW :=}|@xc({7b})|FSW|@xc({7d})|{;\n}|
{RTTLdir :=}|@xc({7b})|RTTLdir|@xc({7d})|{;\n}|
{VIEWLOG :=}|@xc({7b})|VIEWLOG|@xc({7d})|{;\n}|
{MEMBER :=}|@xc({7b})|MEMBER|@xc({7d})|{;\n}|
{UPDOWN :=}|@xc({7b})|UPDOWN|@xc({7d})|{;\n}|
{MAILDEL :=}|@xc({7b})|MAILDEL|@xc({7d})|{;\n}|
{MAILRED :=}|@xc({7b})|MAILRED|@xc({7d})|{;\n}|
{JISAR :=}|@xc({7b})|JISAR|@xc({7d})|{;\n}|
{ESCon :=}|@xc({7b})|ESCon|@xc({7d})|{;\n}|
{PLTmemo :=}|@xc({7b})|PLTmemo|@xc({7d})|{;\n}|
{AP3 :=}|@xc({7b})|AP3|@xc({7d})|{;\n}|
{ACCESS :=}|@xc({7b})|ACCESS|@xc({7d})|{;\n}|
{WHO :=}|@xc({7b})|WHO|@xc({7d})|{;\n}|
{TalkID1 :=}|@xc({7b})|TalkID1|@xc({7d})|{;\n}|
{TalkID2 :=}|@xc({7b})|TalkID2|@xc({7d})|{;\n}|
{TalkID3 :=}|@xc({7b})|TalkID3|@xc({7d})|{;\n}|
{TalkID4 :=}|@xc({7b})|TalkID4|@xc({7d})|{;\n}|
{TalkID5 :=}|@xc({7b})|TalkID5|@xc({7d})|{;\n}|
{TalkID6 :=}|@xc({7b})|TalkID6|@xc({7d})|{;\n}|
{TalkID7 :=}|@xc({7b})|TalkID7|@xc({7d})|{;\n}|
{TalkID8 :=}|@xc({7b})|TalkID8|@xc({7d})|{;\n}|
{TalkID9 :=}|@xc({7b})|TalkID9|@xc({7d})|{;\n}|
{TalkID10:=}|@xc({7b})|TalkID10|@xc({7d})|{;\n}|
{TalkID11:=}|@xc({7b})|TalkID11|@xc({7d})|{;\n}|
{TalkID12:=}|@xc({7b})|TalkID12|@xc({7d})|{;\n}|
{TalkID13:=}|@xc({7b})|TalkID13|@xc({7d})|{;\n}|
{TalkID14:=}|@xc({7b})|TalkID14|@xc({7d})|{;\n}|
{TalkID15:=}|@xc({7b})|TalkID15|@xc({7d})|{;\n}|
{TalkID16:=}|@xc({7b})|TalkID16|@xc({7d})|{;\n}|
{TalkID17:=}|@xc({7b})|TalkID17|@xc({7d})|{;\n}|
{TalkID18:=}|@xc({7b})|TalkID18|@xc({7d})|{;\n}|
{TalkID19:=}|@xc({7b})|TalkID19|@xc({7d})|{;\n}|
{TalkID20:=}|@xc({7b})|TalkID20|@xc({7d})|{;\n}|
{CMt1 :=}|@xc({7b})|CMt1|@xc({7d})|{;\n}|
{CMt2 :=}|@xc({7b})|CMt2|@xc({7d})|{;\n}|
{CMt3 :=}|@xc({7b})|CMt3|@xc({7d})|{;\n}|
{CMt4 :=}|@xc({7b})|CMt4|@xc({7d})|{;\n}|
{CMt5 :=}|@xc({7b})|CMt5|@xc({7d})|{;\n}|
{CMt6 :=}|@xc({7b})|CMt6|@xc({7d})|{;\n}|
{CMt7 :=}|@xc({7b})|CMt7|@xc({7d})|{;\n}|
{CMt8 :=}|@xc({7b})|CMt8|@xc({7d})|{;\n}|
{CMt9 :=}|@xc({7b})|CMt9|@xc({7d})|{;\n}|
{CMt10 :=}|@xc({7b})|CMt10|@xc({7d})|{;\n}|
{CMt11 :=}|@xc({7b})|CMt11|@xc({7d})|{;\n}|
{CMt12 :=}|@xc({7b})|CMt12|@xc({7d})|{;\n}|
{CMt13 :=}|@xc({7b})|CMt13|@xc({7d})|{;\n}|
{CMt14 :=}|@xc({7b})|CMt14|@xc({7d})|{;\n}|
{CMt15 :=}|@xc({7b})|CMt15|@xc({7d})|{;\n}|
{CMt16 :=}|@xc({7b})|CMt16|@xc({7d})|{;\n}|
{CMt17 :=}|@xc({7b})|CMt17|@xc({7d})|{;\n}|
{CMt18 :=}|@xc({7b})|CMt18|@xc({7d})|{;\n}|
{CMt19 :=}|@xc({7b})|CMt19|@xc({7d})|{;\n}|
{CMt20 :=}|@xc({7b})|CMt20|@xc({7d})|{;\n}|
{MACTIV :=}|@xc({7b})|MACTIV|@xc({7d})|{;\n});
write(SETFILE,
{OPENING :=}|@xc({7b})|OPENING|@xc({7d})|{;\n}|
{HOSEI :=}|@xc({7b})|HOSEI|@xc({7d})|{;\n}|
{SOUND :=}|@xc({7b})|SOUND|@xc({7d})|{;\n}|
{FMGR :=}|@xc({7b})|FMGR|@xc({7d})|{;\n}|
{RTTLC :=}|@xc({7b})|RTTLC|@xc({7d})|{;\n}|
{R :=}|@xc({7b})|R|@xc({7d})|{;\n}|
{G :=}|@xc({7b})|G|@xc({7d})|{;\n}|
{B :=}|@xc({7b})|B|@xc({7d})|{;\n}|
{BELFIL :=}|@xc({7b})|BELFIL|@xc({7d})|{;\n}|
{VBELL :=}|@xc({7b})|VBELL|@xc({7d})|{;\n}|
{NATTOU :=}|@xc({7b})|NATTOU|@xc({7d})|{;\n}|
{CLICK :=}|@xc({7b})|CLICK|@xc({7d})|{;\n}|
{LOCK :=}|@xc({7b})|LOCK|@xc({7d})|{;\n}|
{TAB :=}|@xc({7b})|TAB|@xc({7d})|{;\n}|
{OAK :=}|@xc({7b})|OAK|@xc({7d})|{;\n}|
{DORAEND :=}|@xc({7b})|DORAEND|@xc({7d})|{;\n});
SETFILE1:={標準設定};
};
/* 設定情報をもとに戻す */
%CANCEL {footnote({本当にもとに戻してもいいですか?});
select ({本当にもとに戻してもいいですか?},
Wtime4,,
{ O K },
{case(@filechk(SETFILE),{Yes},
{setcdir(CDIR);#DORASET.SET;init;SETFILE1:={標準設定}})
},{ N G });
};
/* 設定情報をファイルに保存する */
%SAVE {
var newfile [64];SNDMSG({erande_f.snd});
footnote({設定情報を保存するファイルを指定して下さい});
newfile:=@filesel({USR});
case (newfile<>{},
{Yes},{
%newdir @getcdir;
case (@nochar(newdir)==3,
{Yes},{newfile:=newdir|newfile},
{No},{newfile:=newdir|{\}|newfile});
writeSET(newfile)})};
/* ファイルから設定情報を読み込む */
%LOAD {var newfile [64];SNDMSG({erande_f.snd});
footnote({設定情報を読み込むファイルを指定して下さい});
newfile:=@filesel({USR});
case(newfile<>{},{Yes},{
%newdir @getcdir;
case(@nochar(newdir)==3,
{Yes},{newfile:=newdir|newfile},
{No},{newfile:=newdir|{\}|newfile});
case(@filechk(newfile),{Yes},
{%ExcPilot {#}|newfile;ExcPilot;init;
SETFILE1:=@tail(newfile,{\})})});
setcdir(CDIR)};
/* 設定する情報の選択 */
%DORASET{
loop ({
footnote({設定する情報を選択して下さい});
select ({設定する情報を選択して下さい << 各種の設定 >>},
60,{im({No})},
{ユーザーIDとパスワードの設定},{setID;im({Yes})},
{ モデム・電話機タイプの設定 },{setMDM;im({Yes})},
{ NET名称と電話番号の設定 },{setBBSNAME;im({Yes})},
{ ログファイルの設定 },{setLOGF;im({Yes})},
{ その他の通信の設定 },
{setcdir(CDIR);#DORASETC.PLP;im({Yes})},
{ その他の設定 },{setETC;im({Yes})},
{ ファイルマネージャの選択 },{setFMGR;im({Yes})},
{ もとの設定にもどす },{CANCEL;im({Yes})},
{ 設定をファイルに保存する },{SAVE;im({Yes})},
{ ファイルから設定を読み込む },{LOAD;im({Yes})},
{ 設定を保存して終了 },{writeSET(SETFILE);im({No})},
{ 保存しない(一時的な変更) }
,{SETFILE1:={一時設定};im({No})}
)})};
DORASET;